home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
UTILITY
/
TASEXAM6.ARJ
/
AVG30.TAS
< prev
next >
Wrap
Text File
|
1991-11-30
|
3KB
|
78 lines
{Martin,
This is a revised Script of the 80/60 rule used by the "CHARTIST".
The script uses only those stocks with 191 days of Quotes and
calculates its results on those stocks used. No changes need to be
made for additions or deletions of the number of stocks in your
directors. A good cross-section of stocks is necessary to 'Mirror'
the publicly reported 80/60 Rule. Leon Mandeville, La.}
#MAX_QUOTES 191
#OUTPUT_FILE 'C:\$AREPORT\REP10.PRN' N
WEEKS : ARRAY;
WEEKS := MOV(C,150,'S'); {Thirty Week Moving Average}
COUNT := 0;
IF FIRST_TICKER THEN
BEGIN
LINE_COUNT := 0; {Today}
LINE22 := 0; {One Week-ago}
LINE44 := 0; {Four Weeks-ago}
LINE66 := 0; {Eight Weeks-ago}
TOTCOM := 0; {Companys used in Calculations}
TOTAL := 0; {Total Companys in your Directors}
WRITELN(' 80/60 RULE');
WRITELN('=============================================================');
WRITELN(' AFTER A MARKET RISE AND 80% OF STOCKS ON NYSE ARE OVER');
WRITELN(' THEIR 30 WEEK MOVING AVGERAGE A **CAUTION SIGNAL**');
WRITELN(' OCCURS WHEN THE PERCENTAGE DROPS TO ** 60% ** OR LOWER');
WRITELN(' PERCENT WILL DROP BELOW ** 30% ** BEFORE SEEING 80% AGAIN');
WRITELN('------------------',DATE,'-----------------------------------');
WRITELN(' STOCKS MOVING ABOVE OR BELOW AVG');
WRITELN('#STKS PERCENT WHEN TIC CLOSE 30WK/AVG');
WRITELN('===== ======= ==== ==== ===== ========');
END;
TOTAL := TOTAL + 1;
IF QUOTE_COUNT < 191 THEN
RETURN;
IF C = C THEN
TOTCOM := TOTCOM + 1;
IF C[-1] < WEEKS[-1] AND C > WEEKS THEN
WRITELN(' ',' ',' ',' ',TICKER,C, WEEKS,' ','UP');
IF C < WEEKS AND C[-1] > WEEKS[-1] THEN
WRITELN(' ',' ',' ',' ',TICKER,C, WEEKS,' ','DOWN');
IF (C - WEEKS) > 0 THEN
COUNT := COUNT + 1
ELSE
LINE_COUNT := LINE_COUNT - 1;
LINE_COUNT := LINE_COUNT + 1
IF (C[-5] - (WEEKS[-5])) > 0 THEN
COUNT := COUNT + 1
ELSE
LINE22 := LINE22 - 1;
LINE22 := LINE22 + 1
IF (C[-20] - (WEEKS[-20])) > 0 THEN
COUNT := COUNT + 1
ELSE
LINE44 := LINE44 - 1;
LINE44 := LINE44 + 1
IF (C[-40] - (WEEKS[-40])) > 0 THEN
COUNT := COUNT + 1
ELSE
LINE66 := LINE66 - 1;
LINE66 := LINE66 + 1
IF LAST_TICKER THEN
WRITELN('----------------------------------');
IF LAST_TICKER THEN
WRITELN(INT(LINE_COUNT),(LINE_COUNT/TOTCOM)*100,' ',' ','TODAY');
IF LAST_TICKER THEN
WRITELN(INT(LINE22),(LINE22/TOTCOM)*100,' ',' ','WEEK-AGO');
IF LAST_TICKER THEN
WRITELN(INT(LINE44),(LINE44/TOTCOM)*100,' ',' ','4 WEEKS-AGO');
IF LAST_TICKER THEN
WRITELN(INT(LINE66),(LINE66/TOTCOM)*100,' ',' ','8 WEEKS-AGO');
IF LAST_TICKER THEN
WRITELN('----------------------------------');
IF LAST_TICKER THEN
WRITELN('NUMBER OF COMPANYS USED ',' ',INT(TOTCOM));
IF LAST_TICKER THEN
WRITELN('TOTAL COMPANYS IN DIRECTORS ',' ',INT(TOTAL));